home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / utilities / pu352.dms / pu352.adf / install-printer.canon < prev    next >
Text File  |  1993-03-09  |  10KB  |  295 lines
  1. ;Commodore install script ©1993 Nick Lines / First Computer Centre
  2. ;  This one installs the selected printer to devs:printers
  3. ;  gives a choice as well!
  4. ; "$VER: Install-printer_V1.00ß"
  5.  
  6. (complete 0)
  7. (set version (/ (getversion) 65536))
  8. (set @default-dest "devs:Printers")
  9.  
  10. (set PrinterMake   (askchoice (prompt "Welcome to First Computer Centre's exclusive\n"
  11.                                       "printer installer\n\n"
  12.                                       "Please click on the make of printer you have just purchased, "
  13.                                       "or on 'Help' for help\n")
  14.                              (choices "Canon"
  15.                                       "Citizen"
  16.                                       "Hewlett-Packard"
  17.                                       "Panasonic"
  18.                                       "Star"
  19.                              )
  20.                              (help "Install_printer ©1993 Nick Lines/"
  21.                                    "First Computer Centre\n"
  22.                                    "\nClick on the make of your new printer, "
  23.                                    "then click on proceed.")
  24.                    )
  25. )
  26. (if (= PrinterMake 0)
  27. (   (set Printer (askchoice (prompt "Which particular printer do you own?")
  28.                            (choices "BJ10ex"
  29.                                     "BJ20"
  30.                                     "BJ200"
  31.                                     "BJ300")
  32.  
  33.                            (help "Click on the Canon printer you own, then "
  34.                                  "on proceed")
  35.                 )
  36.    )
  37.    (set CanonBits (askoptions (prompt "Which parts do you want installing?")
  38.                               (choices "Printer Driver"
  39.                                        "CanonPrefs"
  40.                                        "Font DownLoad (not BJ300)"
  41.                                        "Documentation"
  42.                               )
  43.                               (help "Always install the printer driver.\n"
  44.                                "CanonPrefs allows better customisation of"
  45.                                " your printers settings, as does downloading"
  46.                                " of fonts.\nDocumentation is also a must!")
  47.                   )
  48.    )
  49.  
  50.    (if (IN CanonBits 0)
  51.       ((if (= Printer 0)
  52.         (set error (trap 4
  53.         (copyfiles (source "Install-printer:Store/Canon/BJ10/CanonBJ10") 
  54.                    (dest "devs:printers"))        ))
  55.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  56.       )
  57.  
  58.       (if (= Printer 1)
  59.         (set error (trap 4
  60.         (copyfiles (source "Install-printer:Store/Canon/BJ10/CanonBJ10") 
  61.                    (dest "devs:printers"))        ))
  62.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  63.       )
  64.  
  65.       (if (= Printer 2)
  66.         (set error (trap 4
  67.         (copyfiles (source "Install-printer:Store/Canon/BJ10/CanonBJ10") 
  68.                    (dest "devs:printers"))        ))
  69.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  70.       )
  71.  
  72.       (if (= Printer 3)
  73.         (set error (trap 4
  74.         (copyfiles (source "Install-printer:Store/Canon/BJ300/CanonBJ300") 
  75.                    (dest "devs:printers"))        ))
  76.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  77.       )
  78.  
  79.  
  80.    ))
  81.    (if (AND (IN CanonBits 1 ) (> version 36))
  82.       ((if (= Printer 0)
  83.         (
  84.         (set error (trap 4
  85.         (copyfiles (source "Install-printer:Store/Canon/BJ10/CanonPref") 
  86.                    (dest "sys:prefs"))        ))
  87.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  88.         (set error (trap 4
  89.         (copyfiles (source "Install-printer:Store/Canon/BJ10/CanonPref.info") 
  90.                    (dest "sys:prefs"))        ))
  91.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  92.  
  93.  
  94.         )
  95.       )
  96.       (if (= Printer 1);
  97.          (
  98.         (set error (trap 4
  99.         (copyfiles (source "Install-printer:Store/Canon/BJ10/CanonPref") 
  100.                    (dest "sys:prefs"))        ))
  101.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  102.         (set error (trap 4
  103.         (copyfiles (source "Install-printer:Store/Canon/BJ10/CanonPref.info") 
  104.                    (dest "sys:prefs"))        ))
  105.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  106.  
  107.  
  108.         )
  109.       )
  110.       (if (= Printer 2)
  111.         (
  112.         (set error (trap 4
  113.         (copyfiles (source "Install-printer:Store/Canon/BJ10/CanonPref") 
  114.                    (dest "sys:prefs"))        ))
  115.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  116.         (set error (trap 4
  117.         (copyfiles (source "Install-printer:Store/Canon/BJ10/CanonPref.info") 
  118.                    (dest "sys:prefs"))        ))
  119.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  120.  
  121.  
  122.         )
  123.       )
  124.       (if (= Printer 3)
  125.         (
  126.         (set error (trap 4
  127.         (copyfiles (source "Install-printer:Store/Canon/BJ300/CanonPref") 
  128.                    (dest "sys:prefs"))        ))
  129.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  130.         (set error (trap 4
  131.         (copyfiles (source "Install-printer:Store/Canon/BJ300/CanonPref.info") 
  132.                    (dest "sys:prefs"))        ))
  133.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  134.  
  135.  
  136.         )
  137.       )
  138.  
  139.  
  140.  
  141.    ))
  142.  
  143.    (if (AND (IN CanonBits 2 ) (> version 36))
  144.       ((if (= Printer 0)
  145.         (
  146.         (set error (trap 4
  147.         (copyfiles (source "Install-printer:Store/Canon/BJ10/FontShop") 
  148.                    (dest "sys:prefs"))        ))
  149.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  150.         (set error (trap 4
  151.         (copyfiles (source "Install-printer:Store/Canon/BJ10/FontShop.info") 
  152.                    (dest "sys:prefs"))        ))
  153.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  154.  
  155.  
  156.         )
  157.       )
  158.       (if (= Printer 1);
  159.          (
  160.         (set error (trap 4
  161.         (copyfiles (source "Install-printer:Store/Canon/BJ10/FontShop") 
  162.                    (dest "sys:prefs"))        ))
  163.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  164.         (set error (trap 4
  165.         (copyfiles (source "Install-printer:Store/Canon/BJ10/FontShop.info") 
  166.                    (dest "sys:prefs"))        ))
  167.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  168.  
  169.  
  170.         )
  171.       )
  172.       (if (= Printer 2)
  173.         (
  174.         (set error (trap 4
  175.         (copyfiles (source "Install-printer:Store/Canon/BJ10/FontShop") 
  176.                    (dest "sys:prefs"))        ))
  177.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  178.         (set error (trap 4
  179.         (copyfiles (source "Install-printer:Store/Canon/BJ10/FontShop.info") 
  180.                    (dest "sys:prefs"))        ))
  181.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  182.  
  183.  
  184.         )
  185.       )
  186.       (if (= Printer 3)
  187.     (message "FontShop not available for BJ300 :(")
  188.       )
  189.  
  190.  
  191.    ))
  192.  
  193.    (if (IN CanonBits 3 )
  194.       ((if (= Printer 0)
  195.         (
  196.         (set error (trap 4
  197.         (copyfiles (source "Install-printer:Store/Canon/BJ10/Readme") 
  198.                    (dest "sys:prefs"))        ))
  199.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  200.         (set error (trap 4
  201.         (copyfiles (source "Install-printer:Store/Canon/BJ10/Readme.info") 
  202.                    (dest "sys:prefs"))        ))
  203.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  204.  
  205.  
  206.         )
  207.       )
  208.       (if (= Printer 1);
  209.          (
  210.         (set error (trap 4
  211.         (copyfiles (source "Install-printer:Store/Canon/BJ10/ReadMe") 
  212.                    (dest "sys:prefs"))        ))
  213.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  214.         (set error (trap 4
  215.         (copyfiles (source "Install-printer:Store/Canon/BJ10/ReadMe.info") 
  216.                    (dest "sys:prefs"))        ))
  217.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  218.  
  219.  
  220.         )
  221.       )
  222.       (if (= Printer 2)
  223.         (
  224.         (set error (trap 4
  225.         (copyfiles (source "Install-printer:Store/Canon/BJ10/ReadMe") 
  226.                    (dest "sys:prefs"))        ))
  227.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  228.         (set error (trap 4
  229.         (copyfiles (source "Install-printer:Store/Canon/BJ10/ReadMe.info") 
  230.                    (dest "sys:prefs"))        ))
  231.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  232.  
  233.  
  234.         )
  235.       )
  236.       (if (= Printer 3)
  237.         (
  238.         (set error (trap 4
  239.         (copyfiles (source "Install-printer:Store/Canon/BJ300/ReadMe") 
  240.                    (dest "sys:prefs"))        ))
  241.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  242.         (set error (trap 4
  243.         (copyfiles (source "Install-printer:Store/Canon/BJ300/ReadMe.info") 
  244.                    (dest "sys:prefs"))        ))
  245.         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  246.  
  247.  
  248.         )
  249.       )
  250.  
  251.  
  252.  
  253.    ))
  254.  
  255.  
  256.  
  257. ))
  258.  
  259. (if (= PrinterMake 1)
  260.    (set Printer (askchoice (prompt "Which particular printer do you own?")
  261.                            (choices "Swift 9 Colour"
  262.                                     "Swift 200 Colour"
  263.                                     "Swift 240 Colour"
  264.                            )
  265.                            (help "Click on the Citizen printer you own,"
  266.                                  " then on proceed.")
  267.                 )
  268.    )
  269. )
  270.  
  271. (if (= PrinterMake 2)
  272.    (set Printer (askchoice (prompt "Which particular printer do you own?")
  273.                            (choices "DeskJet 500 mono  "
  274.                                     "DeskJet 500 Colour"
  275.                                     "DeskJet 550 Colour"
  276.                            )
  277.                            (help "Click on the HP printer you own, then"
  278.                                  " on proceed."
  279.                            )
  280.                 )
  281.    )
  282. )
  283. (if (= PrinterMake 3)
  284.    (set Printer (askchoice (prompt "Which particular printer do you own?")
  285.                            (choices "KXP - 2180 (9 pin colour)"
  286.                                     "KXP - 2123 (24pin colour)"
  287.                            )
  288.                            (help "Click on the Panasonic printer you own,"
  289.                                  " then on proceed."
  290.                            )
  291.                 )
  292.    )
  293. )
  294.  
  295.